home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / SWAG / SWAGA_C / COMM.SWG / 0051_Flushing Fossil Buffers.pas < prev    next >
Pascal/Delphi Source File  |  1994-08-24  |  155b  |  12 lines
  1.  
  2. Procedure PurgeInput; assembler;
  3. { Purges the input buffer -- Empties it into obilivion! }
  4. asm
  5.   mov AH, $0A
  6.   mov DX, port
  7.   Int $14
  8. End;
  9.  
  10.  
  11.  
  12.